#!/usr/local/bin/perl

for ($count = 0; $count < 10000; $count++) {
    print "G";
}
